(if (subclass $s $t) (all x (if (mem x $s) (mem x $t)))) (if (disjoint $s $t) (all x (if (mem x $s) (not (mem x $t))))) (if (func $r $s $y) (all x (if (mem x $s) ($r x $y))))